home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / ANY / bit_size.s < prev    next >
Encoding:
Text File  |  1996-01-20  |  188 b   |  15 lines
  1.  
  2. **
  3. ** bit_size:INTEGER
  4. **
  5. ** Copyright © 1995, Guichard Damien.
  6. **
  7.  
  8.         include globals.i
  9.  
  10. bit_size
  11.         move.l  (-4,a2),d0
  12.         add.l   #4,d0
  13.         lsl.l   #3,d0
  14.         rts
  15.